(sendmail-user-agent-compose):

Ignore case when inserting the rest of the "other" headers.

diff --git a/lisp/simple.el b/lisp/simple.el
index 00d8928249666e1c013bf0a5f41f1f0ce696aa45..6bb5a9f77b60f0dbf9cc604a20139a6747aa1a3a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3648,7 +3648,8 @@ Unibyte strings are converted to multibyte for comparison."
     (save-excursion
       (rfc822-goto-eoh)
       (while other-headers
-       (if (not (member (car (car other-headers)) '("in-reply-to" "cc")))
+       (if (not (assoc-ignore-case (car (car other-headers))
+                                   '(("in-reply-to") ("cc"))))
            (insert (car (car other-headers)) ": "
                    (cdr (car other-headers)) "\n"))
        (setq other-headers (cdr other-headers)))